unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Menu_HA1: TMenuItem;
    Menu_GG1: TMenuItem;
    Panl_1: TPanel;
    procedure Menu_GG1Click(Sender: TObject);
    procedure Menu_HA1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Menu_GG1Click(Sender: TObject);
begin
  ShowMessage(Sender.ClassName);
  ShowMessage(TMenuItem(Sender).Parent.ClassName);
  ShowMessage(TMenuItem(Sender).Caption);  
  ShowMessage(PopupMenu1.PopupComponent.ClassName);
end;

procedure TForm1.Menu_HA1Click(Sender: TObject);
begin
  ShowMessage(Sender.ClassName);
  ShowMessage(TMenuItem(Sender).Parent.ClassName);
  ShowMessage(TMenuItem(Sender).Caption);  
  ShowMessage(PopupMenu1.PopupComponent.ClassName);
end;

end.
